home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 November / Ahoy_Magazine_86-11_1986_Double_L.d64 / Rep. Comp. 3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  372b  |  12 lines
  1. 0 print"[147][144]":poke53280,6:poke53281,1
  2. 1 print" commodares....repeated compression #3 ":print:print
  3. 2 rem   repeated compression
  4. 3 rem solution by
  5. 4 rem   gary hudach
  6. 5 rem
  7. 10 u$=chr$(145):inputa$:b$=chr$(32)+a$:printu$" "b$:fort=2tolen(b$)
  8. 20 ifmid$(b$,t,1)=mid$(b$,t-1,1)thenprintu$spc(t)chr$(32):forx=1to200:next
  9. 30 ifmid$(b$,t,1)<>mid$(b$,t-1,1)thenc$=c$+mid$(b$,t,1)
  10. 40 next:fora=1tolen(c$):printu$spc(a)mid$(c$,a,1)
  11. 50 forb=len(c$)tolen(b$):printu$spc(1+b)chr$(32):nextb,a
  12.